home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 76 / XENIATGM66.iso / Indiana Jones / Indiana Jones.exe / RESOURCE / PREVIEW.GOB / cog_teo_snakepit.cog < prev    next >
Text File  |  1999-11-15  |  2KB  |  66 lines
  1. # Jones 3D Cog Script
  2. #
  3. # TEO_Snakepit.cog
  4. #
  5. # Trick floor for snakepit
  6. #
  7. # [SXC]
  8. #
  9. # (C) 1997 LucasArts Entertainment Co. All Rights Reserved
  10. # ========================================================================================
  11.  
  12. symbols
  13.  
  14.     message         taken
  15.     message         startup                             
  16.                                                       
  17.     sound           keyline                           
  18.                                                       
  19.     thing           floorslab                         
  20.     thing           keyitem
  21.     thing           player                  local
  22.                                                       
  23.     flex            moveSpeed=1.0                     
  24.     int             hapnin = 0              local
  25.     thing           scorp0
  26.     thing           scorp1     
  27.     
  28. end
  29.  
  30. code
  31. # ........................................................................................
  32. startup:
  33.  
  34.     player=GetLocalPlayerThing();
  35.     AISetCutsceneMode(scorp0);
  36.     AISetCutsceneMode(scorp1);
  37.     SetCollideType(scorp0, 0);
  38.     SetCollideType(scorp1, 0);
  39.     
  40. return;
  41.  
  42. # ........................................................................................
  43. taken:
  44.     
  45.     if ((GetSenderRef() == keyitem) &&                    
  46.        (hapnin == 0))                                     
  47.     {                                                     
  48.         hapnin = 1;                                   
  49.         PlayVoice(player, keyline, 1.0, 1);      
  50.         MoveToFrame(floorslab, 1, moveSpeed);
  51.         WaitForStop(floorslab);
  52.         SetCollideType(floorslab, 0);
  53.         AIClearCutsceneMode(scorp0);
  54.         AIClearCutsceneMode(scorp1);
  55.         SetCollideType(scorp0, 1);
  56.         SetCollideType(scorp1, 1);
  57.         
  58.     }                                                     
  59.     
  60. return;                                               
  61.         
  62. # ........................................................................................
  63.                                                      
  64. end
  65.  
  66.